begintownscript;

variables;
short creature_count = 0;
short pc_counter = 0;

body;

beginstate 0; //INIT_STATE
	creature_count = 6;
	set_name(6, "Brother Coldgale");
	if((get_flag(1,10) != 1) && (get_flag(5,3) == 1)) {
		activate_hidden_group(1);
		}
	set_crime_tolerance(2);
break;

beginstate 1; //EXIT_STATE

break;

beginstate 2; //START_STATE

break;

beginstate 10; //Bar entry until Coldgale gives permission
	if (get_flag(1,0) != 1) {
		block_entry(1);
		}
	else {
		if (get_flag(1,1) == 0) {
		message_dialog("You step through the section of wall that Coldgale mentioned, and are amazed by the cave's interior. At least, you think it's a cave. The floor is covered in lush grass, and strange trees grow around the cave.","However, the weirdest thing is that a large river empties into a pool at the cave's center, and the water is covered with lily pads. The whole place is quite tranquil.");
		set_flag(1,1,1);
			}
		}
break;

beginstate 20; //Oakleaf Cutscene
	if((get_flag(100,2) == 5) && (get_flag(1,10) != 1)) { 
	//If you've proven yourselves to Oakleaf, and he's still there
		set_state_continue(25); 	   
		//Go to next cutscene
		}
//1st cutscene: set up "prove yourselves" quest
	if ((get_flag(1,5) != 1) && (get_flag(5,3) == 1)) {
		set_total_visibility(1);
		force_instant_terrain_redraw();
		pause(5);
		march_party(16,19);
		force_view_center(16,19);
		force_instant_terrain_redraw();
		play_sound(49);
		pause(5);
		march_party(16,18);
		force_view_center(16,18);
		force_instant_terrain_redraw();
		play_sound(50);
		pause(5);
		march_party(16,17);
		force_view_center(16,17);
		force_instant_terrain_redraw();
		play_sound(49);
		pause(5);
		march_party(16,16);
		force_view_center(16,16);
		force_instant_terrain_redraw();
		play_sound(50);
		pause(5);
		march_party(16,15);
		force_view_center(16,15);
		force_instant_terrain_redraw();
		play_sound(49);
		pause(5);
		march_party(16,14);
		force_view_center(16,14);
		force_instant_terrain_redraw();
		play_sound(50);
		pause(5);
		force_view_center(16,13);
		force_instant_terrain_redraw();
		pause(5);
		force_view_center(16,12);
		force_instant_terrain_redraw();
		pause(5);
		force_view_center(16,11);
		force_instant_terrain_redraw();
		pause(5);
		set_character_facing(7,4);
		force_instant_terrain_redraw();
		pause(20);
		text_bubble_on_char(7, "We meet again.");
		force_instant_terrain_redraw();
		pause(25);
		erase_text_bubbles();
		text_bubble_on_char(7, "I suppose this means...");
		force_instant_terrain_redraw();
		pause(15);
		erase_text_bubbles();
		text_bubble_on_char(char_on_loc(16,14), "We want to help you.");
		force_instant_terrain_redraw();
		pause(15);
		erase_text_bubbles();
		if (char_on_loc(16,16) != -1) {
			text_bubble_on_char(char_on_loc(16,16), "Together we'll find Ephesos.");
			}
		else {
			text_bubble_on_char(char_on_loc(16,14), "Together we'll find Ephesos.");
			}
		force_instant_terrain_redraw();
		pause(25);
		erase_text_bubbles();
		text_bubble_on_char(7, "No. You are not true Druids.");
		force_instant_terrain_redraw();
		pause(25);
		erase_text_bubbles();
		if (char_on_loc(16,15) != -1) {
			text_bubble_on_char(char_on_loc(16,15), "...");
			}
		else {
			text_bubble_on_char(char_on_loc(16,14), "...");
			}
		force_instant_terrain_redraw();
		pause(25);
		erase_text_bubbles();
		if (char_on_loc(16,15) != -1) {
			text_bubble_on_char(char_on_loc(16,15), "WHAT?!");
			}
		else {
			text_bubble_on_char(char_on_loc(16,14), "WHAT?!");
			}
		force_instant_terrain_redraw();
		pause(15);
		erase_text_bubbles();
		if (char_on_loc(16,15) != -1) {
			text_bubble_on_char(char_on_loc(16,15), "We've chased you all over the valley!");
			}
		else {
			text_bubble_on_char(char_on_loc(16,14), "We've chased you all over the valley!");
			}
		force_instant_terrain_redraw();
		pause(15);
		erase_text_bubbles();
		if (char_on_loc(16,15) != -1) {
			text_bubble_on_char(char_on_loc(16,15), "What else must we do?!");
			}
		else {
			text_bubble_on_char(char_on_loc(16,14), "What else must we do?!");
			}
		force_instant_terrain_redraw();
		pause(25);
		erase_text_bubbles();
		text_bubble_on_char(7, "The fact remains...");
		force_instant_terrain_redraw();
		pause(15);
		erase_text_bubbles();
		text_bubble_on_char(7, "you have not proven yourselves.");
		force_instant_terrain_redraw();
		pause(20);
		erase_text_bubbles();
		if (char_on_loc(16,17) != -1) {
			text_bubble_on_char(char_on_loc(16,17), "And how can we do that?");
			}
		else {
			text_bubble_on_char(char_on_loc(16,14), "And how can we do that?");
			}
		force_instant_terrain_redraw();
		pause(25);
		erase_text_bubbles();
		text_bubble_on_char(7, "Travel to all of the towns...");
		force_instant_terrain_redraw();
		pause(15);
		erase_text_bubbles();
		text_bubble_on_char(7, "and spread the Order's goodwill.");
		force_instant_terrain_redraw();
		pause(15);
		erase_text_bubbles();
		text_bubble_on_char(7, "When you have done this,");
		force_instant_terrain_redraw();
		pause(15);
		erase_text_bubbles();
		text_bubble_on_char(7, "return here to become true druids.");
		force_instant_terrain_redraw();
		pause(20);
		erase_text_bubbles();
		text_bubble_on_char(7, "Now go forth and prove yourselves!");
		force_instant_terrain_redraw();
		pause(25);
		erase_text_bubbles();
		text_bubble_on_char(7, "I must meditate before I seek Ephesos.");
		force_instant_terrain_redraw();
		pause(15);
		erase_text_bubbles();
		set_character_facing(7,0);
		force_instant_terrain_redraw();
		pause(10);
		force_view_center(16,14);
		set_total_visibility(0);
		force_instant_terrain_redraw();

		block_entry(1);
		message_dialog("So now Brother Oakleaf expects you to go do quests for the other towns... an adventurer's work is never done, it appears.","You'd think that with the Order in such dire need for help, Brother Oakleaf would gladly let you help. Sadly, it appears that you'll have to play along with his demands.");

		set_flag(1,5,1);
		toggle_quest(3,0);
		toggle_quest(10,1);
	}
break;

beginstate 25; //Next cutscene with Oakleaf
	//You've proven yourselves, now it's time to join the Order
		set_total_visibility(1);
		force_instant_terrain_redraw();
		pause(5);
		march_party(16,19);
		force_view_center(16,19);
		force_instant_terrain_redraw();
		play_sound(49);
		pause(5);
		march_party(16,18);
		force_view_center(16,18);
		force_instant_terrain_redraw();
		play_sound(50);
		pause(5);
		march_party(16,17);
		force_view_center(16,17);
		force_instant_terrain_redraw();
		play_sound(49);
		pause(5);
		march_party(16,16);
		force_view_center(16,16);
		force_instant_terrain_redraw();
		play_sound(50);
		pause(5);
		march_party(16,15);
		force_view_center(16,15);
		force_instant_terrain_redraw();
		play_sound(49);
		pause(5);
		march_party(16,14);
		force_view_center(16,14);
		force_instant_terrain_redraw();
		play_sound(50);
		pause(5);
		force_view_center(16,13);
		force_instant_terrain_redraw();
		pause(5);
		force_view_center(16,12);
		force_instant_terrain_redraw();
		pause(5);
		force_view_center(16,11);
		force_instant_terrain_redraw();
		pause(5);
		set_character_facing(7,4);
		force_instant_terrain_redraw();
		pause(25);
		erase_text_bubbles();
		text_bubble_on_char(char_on_loc(16,14), "We have returned.");
		force_instant_terrain_redraw();
		pause(25);
		erase_text_bubbles();
		if(char_on_loc(16,15) != -1) {
			text_bubble_on_char(char_on_loc(16,15), "We traveled to all of the towns,");
			}
		else {
			text_bubble_on_char(char_on_loc(16,14), "We traveled to all of the towns,");
			}
		force_instant_terrain_redraw();
		pause(15);
		erase_text_bubbles();
		if(char_on_loc(16,15) != -1) {
			text_bubble_on_char(char_on_loc(16,15), "And spread the Order's goodwill.");
			}
		else {
			text_bubble_on_char(char_on_loc(16,14), "And spread the Order's goodwill.");
			}
		force_instant_terrain_redraw();
		pause(25);	
		erase_text_bubbles();
		text_bubble_on_char(7, "So I have heard.");
		force_instant_terrain_redraw();
		pause(20);
		erase_text_bubbles();
		if(char_on_loc(16,16) != -1) {
			text_bubble_on_char(char_on_loc(16,16), "Can we help you find Ephesos now?");
			}
		else {
			text_bubble_on_char(char_on_loc(16,14), "Can we help you find Ephesos now?");
			}
		force_instant_terrain_redraw();
		pause(25);	
		erase_text_bubbles();
		text_bubble_on_char(7, "You have done as I asked,");
		force_instant_terrain_redraw();
		pause(15);	
		erase_text_bubbles();
		text_bubble_on_char(7, "And, however reluctantly,");
		force_instant_terrain_redraw();
		pause(15);	
		erase_text_bubbles();
		text_bubble_on_char(7, "I will let you join me...");
		force_instant_terrain_redraw();
		pause(15);	
		erase_text_bubbles();
		text_bubble_on_char(7, "On one condition.");
		force_instant_terrain_redraw();
		pause(20);
		erase_text_bubbles();
		text_bubble_on_char(char_on_loc(16,14), "Yes?");
		force_instant_terrain_redraw();
		pause(20);
		erase_text_bubbles();
		text_bubble_on_char(7, "You must promise to uphold");
		force_instant_terrain_redraw();
		pause(15);	
		erase_text_bubbles();
		text_bubble_on_char(7, "the values of the Order.");
		force_instant_terrain_redraw();
		pause(25);
		erase_text_bubbles();
		text_bubble_on_char(char_on_loc(16,14), "Fine by us.");
		force_instant_terrain_redraw();
		pause(25);	
		erase_text_bubbles();
		text_bubble_on_char(7, "Then I confirm you all");
		force_instant_terrain_redraw();
		pause(15);	
		erase_text_bubbles();
		text_bubble_on_char(7, "as members of the Order,");
		force_instant_terrain_redraw();
		pause(15);
		erase_text_bubbles();
		text_bubble_on_char(7, "and I accept your promise");
		force_instant_terrain_redraw();
		pause(15);	
		erase_text_bubbles();
		text_bubble_on_char(7, "To uphold our values:");
		force_instant_terrain_redraw();
		pause(15);
		erase_text_bubbles();
		text_bubble_on_char(7, "Freedom,");
		set_character_pose(7,1);
		force_instant_terrain_redraw();

		//sparkly bit 1
		pc_counter = 0;
		while(pc_counter < 5) {
			if(char_ok(pc_counter) == 1) {
				put_effect_on_char(pc_counter, 6,10,0);
				}
			pc_counter = pc_counter + 1;
			} 
		run_animation_sound(165);

		pause(15);	
		erase_text_bubbles();
		text_bubble_on_char(7, "Oneness with nature,");
		force_instant_terrain_redraw();

		//sparkly bit 2
		pc_counter = 0;
		while(pc_counter < 5) {
			if(char_ok(pc_counter) == 1) {
				put_effect_on_char(pc_counter, 13,10,0);
				}
			pc_counter = pc_counter + 1;
			} 
		run_animation_sound(12);

		pause(15);	
		erase_text_bubbles();
		text_bubble_on_char(7, "And kindness.");
		force_instant_terrain_redraw();

		//sparkly bit 3
		pc_counter = 0;
		while(pc_counter < 5) {
			if(char_ok(pc_counter) == 1) {
				put_effect_on_char(pc_counter, 10,10,0);
				}
			pc_counter = pc_counter + 1;
			} 
		run_animation_sound(60);

		pause(15);	
		erase_text_bubbles();
		set_character_pose(7,0);
		force_instant_terrain_redraw();
		pause(10);
		text_bubble_on_char(7, "You have my blessing.");
		force_instant_terrain_redraw();
		pause(15);	
		erase_text_bubbles();
		text_bubble_on_char(7, "Let us depart...");
		force_instant_terrain_redraw();
		pause(15);	
		erase_text_bubbles();
		text_bubble_on_char(7, "Meet me at the southeast");
		force_instant_terrain_redraw();
		pause(15);	
		erase_text_bubbles();
		text_bubble_on_char(7, "end of the valley.");
		force_instant_terrain_redraw();
		pause(15);
		erase_text_bubbles();
		text_bubble_on_char(7, "There we shall begin our journey.");
		force_instant_terrain_redraw();
		pause(15);	
		erase_text_bubbles();
		text_bubble_on_char(7, "But first, you must do one last thing.");
		force_instant_terrain_redraw();
		pause(15);	
		erase_text_bubbles();
		text_bubble_on_char(7, "You must retrieve the artifacts");
		force_instant_terrain_redraw();
		pause(15);	
		erase_text_bubbles();
		text_bubble_on_char(7, "which are held in our Temple,");
		force_instant_terrain_redraw();
		pause(15);
		erase_text_bubbles();
		text_bubble_on_char(7, "for we will need them in our quest.");
		force_instant_terrain_redraw();
		pause(15);
		erase_text_bubbles();
		force_instant_terrain_redraw();
		pause(10);
		erase_text_bubbles();
		text_bubble_on_char(7, "Farewell, fellow druids!");
		force_instant_terrain_redraw();
		pause(15);
		set_character_pose(7,1);
		force_instant_terrain_redraw();
		pause(5);
		put_boom_on_char(7,2,0);
		run_animation_sound(95);
		erase_char(7);
		set_flag(1,10,1);
		change_spec_item(0,1);
		toggle_quest(10,0);
		message_dialog("So, it appears that you just have to go retrieve a few trinkets made by the Order, and then you can finally go find Ephesos.","");
		

		set_total_visibility(0);
		force_instant_terrain_redraw();
		block_entry(1);
break;